C 10 


RRR eR Re ee 
ee ee 
Ck ak ek ae ce ee oe ee a oe wee ane aed oe coe a rg 
ieee 


aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa aaa 
aaa acoa 
aaa aaa 
SoGO00OGOO00GO0G0G0G0R008aR 
So0O0O0GOGoOOG000000000a8Ra 
SOoGHKHGCHHGHAaHhaaeSaSaaaoaaa 
wud ada 
wutud Lk ee ha 
a Ld th ed 
dd A hd bad Ra dd ol 
ed bad Aad tu had 
bd a kd Lh Ah ed 
tks kd rezeeneey Ve TeCnee) 
ad Ld Ad kd Ad 
a Ld ad ed hs a 
aeeeered a as a wu 
ad kd ted bd Ld tad a bad 
kad LOS LD tad Ld Abs 


ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
Shed eee heesueLvelue. UlveleelvelvsseeLlvelvulvesewreel 


_ ee 


 eeFLLE®® 1D] eSCRWID 


SSSSSS 
SSSSSS 
S$ 


$$ 
$$ 


SS 
SSSSSSSS 
SSSSSSSS 


LLLLLLLLLL 
LLLLLLLLLL 


aon 
aoa 
aon 
on 
aoa 
aon 


ralniaiailalalalainla) 
AAQAAAAAOAAO 


bo 


bat oe 
bao Gmap 


C RRRRRRRR 
RR 


i! 
so 
eee 
oe 


SESTERESESSERS 


ee es Oe an Bs Oe ae ee be Oe ae ee 


bat ao 
= 
— 
—s 


DDODDDDDD 


DODDDDDD 
D DD 


DD 
DDDDDDDD 


-— 


. 
° 
. 
° 
. 
. 
. 
a 
7 
e 
. 
° 
. 
. 
© 
° 
© 
eo 
io 
. 
. 
° 
. 
o 
. 
° 
- 
° 
. 
° 
© 
. 
. 
° 
. 
° 
. 
° 
. 
e 
° 
. 
. 
° 
. 
° 
. 
ce 
. 
* 
. 
o 
. 
° 
. 
° 
. 
oe 
7 
° 
. 
. 
. 
7 
. 
e 
. 
o 
. 
° 
- 
* 
. 
e 
. 
o 
. 
e 
. 
° 
. 
° 
. 
e 
. 
. 
. 
° 
. 
° 
. 
o 
. 
° 
° 
. 
° 
. 
*° 


ba) a a 


MEUM —O OO NOUS WN HO CONOUES WN OOONOU EW 


Page 


EDTSSCRWID - set the screen width 1b-5e ~300" 138% 9}: $?: 23 VAX-11 Orbe iscauie oe ts atl 


$s-32 
14-Sep-1 DISK K$V meh STER: 


v4. 
CEDT 
Re "EDTSSCRWID = set the screen width’ 

EDTSSCRWID ( ! Set the t egreen width 
DENT = *v04-000' SCRWID.BLI Edit: J8S1005 
BEGIN 


. 
eee RARER AAAAAAERAAAEKAAAAAHHTETEE HATER HHAAARAKEAeRAKEeeee Ree AeeReRee | 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
& 
4 ® 
tt THIS SOFTWARE IS FURNISHED a A bicemse AND MAY BE USED AND copies ® 
:@ re IN ACCORDANCE WITH THE TERMS OF eave” biC i AND WITH THE * 
'@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT E OR ANY OTHER * 
:* COPIES THEREOF my NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
t# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!@ TRANSFERRED. * 
: ® 
!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. ® 

® 

* 

® 

® 

® 

® 


ITY FOR THE USE OR RELIABILITY OF ITS 


i DIGITAL ASSUMES NO RESPONSIBIL 
1S NOT SUPPLIED BY DIGITAL. 


I 
'@ SOFTWARE ON EQUIPMENT WHICH 
VORA eRARAARARAAAAEAAAAAEAAAAEAHERAAAAA TAA AeeAeee 
1 
lee 
! FACILITY: EDT == The DEC Standard Editor 


i ABSTRACT: 
This module outputs an escape sequence to set the terminal width 
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| 
: ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Sharon M. Burlingame, CREATION DATE: July 29, 1982 | 
MODIFIED BY: 
1 
t 
| 
' 
] 
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1 = Original. SMB 29-Jul-1982. 

- Maintain EDTS$G_PRV_ tou and EDT$$G_PRV UN. JBS 05-Oct-1982 

= Remove conditional Setting of screen widt MB 16-Feb-1983 

- Improve the appearance of the Listing. 5s 7- Jun-198 

5 - Set the width on any kind of terminal, and home the cursor. JBS 29-Aug-1983 
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DISSCRWID - set the screen width 
eclarations 


SSBTTL Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM’ ; 


FORWARD ROUTINE 
EDTSSSC_SETWID; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 

! 

; MACROS: 

NONE 

EQUATED SYMBOLS: 

BIND 
Wi 


LITERAL 
WID_LEN = 8; 


OWN STORAGE : 
NONE 
EXTERNAL REFERENCES: 


In the routine 


iEestort9ge (149222 NI 


0-74 P 
1 SkCSscRwiD.BLt:1 — (25 


' Set screen width on VT100's 


= 80 = UPLIT (ZSTRING (ZCHAR (ASC_K ESC) ZCHAR (ASC_K_ ESC) 


132 = UPLIT (ZSTRING (ZCHAR (ASC_R_ESCS, "CH*, ZCHAR (ASC_R_ESCS, 


D 2 
EDTSSCRWID EDTSSCRWID = set the screen width 16-Sep-1984 01:49: VAX-11 Bliss-32 V4.0-74 Page 3 
Oe 800 atta SETWID = set screen width 12-308718 4 93:52:23 DIEKSUMGHASTER LEDT SRCTSCRWID.BLI:1 . (3) 


; 38 : : ZSBITL “EDTSSSC_SETWID = set screen width’ 

; 9% 664 1 GLOBAL ROUTINE EDTSSSC_SETWID ( ! Set screen width 

—— oe 665 1 S1ZE ! Desired screen size 
3 38 i 1 )=z 

; ¢ 667 1 

: 38 A 1 lee 

: , 669 ! } FUNCTIONAL DESCRIPTION: 

; 101 : Ss If this terminal is a VT100, then output an escape sequence 

; : ¢ : ! to modify the width of the terminal 

3 : ¢ ¢ : FORMAL PARAMETERS: 

5 } : : SIZE the desired screen size 

; 108 : 1 ! IMPLICIT INPUTS: 

; 109 : 1! 

; 110 680 1! EDTS$G_TI_WID 

; 11 68 ; EDT$$G_TI-TYP 

; HF 5E : IMPLICIT OUTPUTS: 

3 195 685 1! EDTS$G_TI_WID 

; 116 686 1 | EDT$$G_PRV_COL 

; We 68 : EDTS$G_PRV_LN 

; 6119 068 1 ! ROUTINE VALUE: 

: 120 0690 1! 

3 el 0691 1! 9 = screen size was not changed 

Ta § §03§ 1} = screen size was changed 

3 1 93 1! 

: 126 694 1 ! SIDE EFFECTS: 

3 : 5 695 : } rae 

ae $ 3 1! 

; 128 98 1 !-- 

3; 6129 99 1 

gs 7 00 BEGIN 

3; 6131 701 

.% § 44 sarees ROUTINE 

Be 7 EDTSSOUT_FMTBUF, ! Output the format buffer 
5 : : Me EDTSSFMT_LIT : NOVALUE; ! Put a Literal string im the format buffer 
s ¥ 0706 care, 

3 7 EDT$$G_TI_WID, ' Current screen size 
. % 708 EDTS$$G_TI_ TYP, ! Terminal type 

3; «4139 709 EDT$$G_PRV_COL, ! Cursor column number 
; 140 710 EDTS$$G_PRV_LN; ! Cursor Line number 
3 «(161 711 

: 166 Ne '¢ 

: 197 At Set the width unconditionally in case the user changed it using SET-UP. 
3 «6145 715 

3 ys | ig IF (.EDT$$G_TI_TYP EQL TERM_VT100) 

3; 14 71 

3; (148 718 BEGIN 


24 
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3; Routine Size: 
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161 
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EDTSSCRWID - set the screen width 1heso -1984 49:2 VAX-11 Bliss-32 V4.0-742 P 
EDTsesc seTwip - set screen width 12-300-18he 93:32:28 DISKSVMSMASTER=CCD1.SRCISCRWID.BLI:1 : 

719 

f y IF (.SIZE LEQ 80) THEN EDTSSFMT_LIT (WID_80, WID_LEN) ELSE EDTSSFMT_LIT (WID_132, WID_LEN); 

7 § EDTSSOUT_FMTBUF (); 

7 EDT$$G_PRV_COL = 0; 

704 EDTSS$G_PRV-LN = 0; 

4 5 END; 

7 § porsse ti WID = .SIZE; 

7 3 RETURN (1); 

7 END; ! of routine EDTS$SC_SETWID 


-TITLE EDTSSCRWID EDTSSCRWID - set the screen width 
-IDENT \v04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


6C F 5B 1B 48 5B 1B Q0Q00 P.AAA: .ASCII <27>\CH\<27>\C23L\ 
68 33 3 58 18 iB 58 18 $0008 P.AAB: .ASCII PN H\< NESTS 
W1D_805 P.AAA 
W1D-132= P.AAB 
.EXTRN EDTS$$OUT_FMTBUF 
-EXTRN EDTSSFMT-LIT, EDT$$G_TI_WID 
-EXTRN EDT$$G_TI_ TYP, EDTS$G_PRV_COL 
-EXTRN EDT$$G_PRO_LN 
0000 000 -ENTRY EDTS$SC_SETWID, Save nothing 
02 000000006 99 D1 0000 CMPL gDTSS6_T1_TYP, # 
if 00 BNEQ S 
00000050 = 8F 04 ac 99 CMPL SIZE, #80 
14 0001 BGTR 1$ 
8 bb 001 PUSHL #8 
D6. «AF. «OOF (0001 PUSHAB WID_80 
05 11 QOOO1A BRB 2$ 
8 DD OOOIC 1$ PUSHL #8 
D7 «AF OF OO1E PUSHAB WID_132 
000000006 00 02 FB 00021 2$ CALLS #2, EDTSSFMT_ 
000000006 00 FB 00028 CALLS #0, EDTS$OUT-FMTBUF 
900000 06 D4 O002F CLRL = EDT$$G_PRV_CO 
00000006 00 04 90 5 CLRL  EDT$$G~PRV“LN 
000000006 99 04 aC DO 00038 3$ MOVL SIZE, EDT$$G_TI_WID 
0 01 B0 04 MOVL #1, RO 
4 00046 RET 


71 bytes, Routine Base: _EDTSCODE + 0010 


8739 ! <BLF /PAGE> 
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) 

aE 

} Ors ] exe ! of module EDTSSCRWID 
165 0 ELUDOM 
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64 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 87 NOVEC.NOWRT, RO, EXE, SHR, LCL, REL, (CON, PIC,ALIGN(2) 


Library Statistics 


eecomces Symbols wocceccn Pages Processing 
File Total Loaded Percent Mapped Time 
RTitt ie EDT. SRCJEDT.L32;1 377 2 8 49 00:00.2 
$255S$0UA28: LEDT.SRCIPSECTS.L32;1 2 1 5 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:SCRWID/OBJ=OBJ$:SCRWID MSRC$:SCRWID.BLI/UPDATE=(ENHS:SCRWID) 


; Size: 71 code + 16 data bytes 
Run Time: i: 0. 
Elapsed Time: 11. 


Lines/CPU Min: 4399 
poseaneS ees 11946 

4 Used: 62 pages 
a ation Complete 
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